home *** CD-ROM | disk | FTP | other *** search
- object FMain: TFMain
- Left = 69
- Top = 30
- Width = 658
- Height = 491
- Caption = 'Fast instance construction and destruction'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- PixelsPerInch = 96
- TextHeight = 13
- object paBottom: TPanel
- Left = 0
- Top = 432
- Width = 650
- Height = 32
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 0
- object btTest: TButton
- Left = 92
- Top = 4
- Width = 75
- Height = 25
- Caption = '&Test'
- TabOrder = 1
- OnClick = btTestClick
- end
- object btClear: TButton
- Left = 176
- Top = 4
- Width = 75
- Height = 25
- Caption = '&Clear'
- TabOrder = 2
- OnClick = btClearClick
- end
- object chMultipleThreads: TCheckBox
- Left = 404
- Top = 8
- Width = 241
- Height = 17
- Caption = 'Simulate multiple threads'
- TabOrder = 3
- end
- object btTrace: TButton
- Left = 8
- Top = 4
- Width = 75
- Height = 25
- Caption = 'T&race'
- Default = True
- TabOrder = 0
- OnClick = btTraceClick
- end
- end
- object paMain: TPanel
- Left = 0
- Top = 0
- Width = 650
- Height = 432
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 4
- TabOrder = 1
- object meOutput: TMemo
- Left = 4
- Top = 4
- Width = 642
- Height = 424
- TabStop = False
- Align = alClient
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Courier New'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 0
- WantReturns = False
- end
- end
- end
-